home *** CD-ROM | disk | FTP | other *** search
/ Nebula 2 / Nebula Two.iso / SourceCode / AdobeExamples / NX_Dial / DialViewWraps.psw < prev    next >
Text File  |  1995-06-12  |  3KB  |  100 lines
  1.  
  2. /*
  3.  * (a)  (C) 1990 by Adobe Systems Incorporated. All rights reserved.
  4.  *
  5.  * (b)  If this Sample Code is distributed as part of the Display PostScript
  6.  *    System Software Development Kit from Adobe Systems Incorporated,
  7.  *    then this copy is designated as Development Software and its use is
  8.  *    subject to the terms of the License Agreement attached to such Kit.
  9.  *
  10.  * (c)  If this Sample Code is distributed independently, then the following
  11.  *    terms apply:
  12.  *
  13.  * (d)  This file may be freely copied and redistributed as long as:
  14.  *    1) Parts (a), (d), (e) and (f) continue to be included in the file,
  15.  *    2) If the file has been modified in any way, a notice of such
  16.  *      modification is conspicuously indicated.
  17.  *
  18.  * (e)  PostScript, Display PostScript, and Adobe are registered trademarks of
  19.  *    Adobe Systems Incorporated.
  20.  * 
  21.  * (f) THE INFORMATION BELOW IS FURNISHED AS IS, IS SUBJECT TO
  22.  *    CHANGE WITHOUT NOTICE, AND SHOULD NOT BE CONSTRUED
  23.  *    AS A COMMITMENT BY ADOBE SYSTEMS INCORPORATED.
  24.  *    ADOBE SYSTEMS INCORPORATED ASSUMES NO RESPONSIBILITY
  25.  *    OR LIABILITY FOR ANY ERRORS OR INACCURACIES, MAKES NO
  26.  *    WARRANTY OF ANY KIND (EXPRESS, IMPLIED OR STATUTORY)
  27.  *    WITH RESPECT TO THIS INFORMATION, AND EXPRESSLY
  28.  *    DISCLAIMS ANY AND ALL WARRANTIES OF MERCHANTABILITY, 
  29.  *    FITNESS FOR PARTICULAR PURPOSES AND NONINFRINGEMENT
  30.  *    OF THIRD PARTY RIGHTS.
  31.  */
  32.  
  33. /*
  34.  *    DialViewWraps.psw
  35.  *
  36.  *    Contains the wraps to draw the dial in several different ways.
  37.  *
  38.  *    Version:    2.0
  39.  *    Author:    Ken Fromm
  40.  *    History:
  41.  *            03-07-91        Added this comment.
  42.  */
  43.  
  44. defineps PSWMarkTime ()
  45.     /StartTime realtime def
  46. endps
  47.  
  48. defineps PSWReturnTime (|int *ElapsedTime)
  49.     realtime StartTime sub 
  50.     ElapsedTime
  51. endps
  52.  
  53. /* Procedures that are called often are defined and bound to save operator look up time. */
  54. defineps PSWDefs ()
  55.     /ML { % X1 Y1 X0 Y0
  56.         moveto lineto
  57.     } bind def
  58.         
  59.     /RML { % X1 Y1 X0 Y0 Ang
  60.         rotate moveto lineto
  61.     } bind def
  62.     
  63.     /RUA { % [Pts (Ops)]  Ang
  64.         rotate uappend
  65.     } bind def
  66. endps
  67.  
  68. defineps PSWEraseView (float BGColor, X, Y, W, H)
  69.     BGColor setgray X Y W H rectfill
  70. endps
  71.  
  72. defineps PSWSetColorWidth (float Color, Width)
  73.     Color  setgray Width setlinewidth
  74. endps
  75.  
  76. defineps PSWMakeLine (float X0, Y0, X1, Y1)
  77.     X1 Y1 X0 Y0 ML
  78. endps
  79.  
  80. defineps PSWMakeCircle (float X, Y, Rad)
  81.     X Rad add Y moveto  X Y Rad 0 360 arc
  82. endps
  83.  
  84. defineps PSWFillPath (float Color)
  85.     Color  setgray fill
  86. endps
  87.  
  88. defineps PSWRotate_MakeLine (float Ang, X0, Y0, X1, Y1)
  89.     X1 Y1 X0 Y0 Ang RML
  90. endps
  91.  
  92. defineps PSWPlaceName(char *str)
  93.     /str
  94. endps
  95.  
  96. defineps PSWDrawUserPath (char *str)
  97.     str ustroke
  98. endps
  99.  
  100.